home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 038a / qbwindoz.zip / TEST.BAS < prev    next >
BASIC Source File  |  1990-11-20  |  733b  |  12 lines
  1. REM $INCLUDE: 'manywin.inc'                             'Define library
  2. COLOR 15, 1                                             'Change screen color
  3. CLS                                                     'Clear screen
  4. LOCATE 12, 1                                            'Draw line of hearts
  5. PRINT STRING$(80, 3)                                    'across screen
  6. windo 9, 15, 20, 60, 15, 3, 1, 32, 1, 4, 1              'Make windo
  7. windocprint 3, 14, "This is a test of QBWINDOZ"         'Print message
  8. windotitle 2, 15, 6, " Press any key to continue. "     'Print title
  9. WHILE INKEY$ = "": WEND                                 'wait for key press
  10. windogone                                               'Remove windo
  11.  
  12.